> < ^ Date: Fri, 22 May 1992 10:43:08 +0200
> < ^ From: Martin Schoenert <martin.schoenert@math.rwth-aachen.de >
< ^ Subject: Re: ['NormedVector' is missing]

Chris Herssens writes in his e-mail message of 21-May-92:

I'm a frequent user of GAP V3, but I have found a bug, namely that
the function 'NormedVector' is not in your library.

You are right. Well, take this one.

NormedVector := function ( vec )
    local   zero, elm;
    zero := vec[1] - vec[1];
    for elm  in vec  do
        if elm <> zero  then
            return (1/elm) * vec;
        fi;
    od;
    return vec;
end;

I will include this patch in the second upgrade, which will be posted to
the GAP Forum tomorrow. I have also forwarded your mail to the GAP
Forum.

Martin.

--
Martin Sch"onert, Martin.Schoenert@Math.RWTH-Aachen.DE, +49 241 804551
Lehrstuhl D f"ur Mathematik, Templergraben 64, RWTH, D 51 Aachen, Germany


> < [top]